library(readxl)
library(dplyr)
library(flexdashboard)
library(plotly)
# Definir la ruta completa al archivo CSV
ruta_archivo <- "C:/Users/Keneth Ruiz/OneDrive/Documentos/GitHub/Data-Product/Lab1/tienda.csv"
# Importar el archivo CSV
datos_tienda <- read.csv(ruta_archivo)
# Calcular ventas totales por segmento
ventas_por_segmento <- datos_tienda %>%
group_by(Segment) %>%
summarize(VentasTotales = sum(Sales))
# A tibble: 3 × 2
Segment VentasTotales
<chr> <dbl>
1 Consumer 1161401.
2 Corporate 706146.
3 Home Office 429653.
# Crear el gráfico pie chart
grafico_pie <- plot_ly(ventas_por_segmento, labels = ~Segment, values = ~VentasTotales, type = "pie")
# Mostrar el gráfico
grafico_pie